(Fdefmacro): Signal an error if NAME is not a symbol.

diff --git a/src/eval.c b/src/eval.c
index 096755f9c77485de3176b85d9b2df768cc3783be..d7cfe9591583acb396c89720040b9c8d22f294f7 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -657,6 +657,7 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...)  */)
   Lisp_Object lambda_list, doc, tail;
 
   fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
   lambda_list = Fcar (Fcdr (args));
   tail = Fcdr (Fcdr (args));